home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
PROGRAMM
/
DB_CLIPP
/
0769B.ZIP
/
VERTMOUT.PRG
< prev
Wrap
Text File
|
1987-10-02
|
9KB
|
148 lines
mMENU1 =1
set message to 22
do while mMENU1 <> 32
@ 0, 0 clear
@ 1,21 say "This is sample output for vertmenu.dbf"
* menu choice 1
@ 4, 2 prompt "a. option # 1 They can be this long";
message "This is the longer message just for option # 1. It should be long enough!----"
* menu choice 2
@ 5, 2 prompt "b. option # 2 Greg Scott ";
message "This is the longer message just for option # 2. It should be long enough! "
* menu choice 3
@ 6, 2 prompt "c. option # 3 270 DuCote ";
message "This is the longer message just for option # 3. It should be long enough! "
* menu choice 4
@ 7, 2 prompt "d. option # 4 Beaumont, Texas 77707";
message "This is the longer message just for option # 4. It should be long enough! "
* menu choice 5
@ 8, 2 prompt "e. option # 5 office 713-471-6601 ";
message "This is the longer message just for option # 5. It should be long enough! "
* menu choice 6
@ 9, 2 prompt "f. option # 6 home 409-833-6226 ";
message "This is the longer message just for option # 6. It should be long enough! "
* menu choice 7
@ 10, 2 prompt "g. option # 7 I use Fox BBS in Hous";
message "This is the longer message just for option # 7. It should be long enough! "
* menu choice 8
@ 11, 2 prompt "h. option # 8 and HAL-1 mostly ";
message "This is the longer message just for option # 8. It should be long enough! "
* menu choice 9
@ 12, 2 prompt "i. option # 9 ";
message "This is the longer message just for option # 9. It should be long enough! "
* menu choice 10
@ 13, 2 prompt "j. option #10 ";
message "This is the longer message just for option #10. It should be long enough! "
* menu choice 11
@ 14, 2 prompt "k. option #11 ";
message "This is the longer message just for option #11. It should be long enough! "
* menu choice 12
@ 15, 2 prompt "l. option #12 ";
message "This is the longer message just for option #12. It should be long enough! "
* menu choice 13
@ 16, 2 prompt "m. option #13 ";
message "This is the longer message just for option #13. It should be long enough! "
* menu choice 14
@ 17, 2 prompt "n. option #14 ";
message "This is the longer message just for option #14. It should be long enough! "
* menu choice 15
@ 18, 2 prompt "o. option #15 ";
message "This is the longer message just for option #15. It should be long enough! "
* menu choice 16
@ 19, 2 prompt "p. option #16 Bottom option on scre";
message "This is the longer message just for option #16. It should be long enough! "
* menu choice 17
@ 4,42 prompt "q. option #17 Top option on screen ";
message "This is the longer message just for option #17. It should be long enough! "
* menu choice 18
@ 5,42 prompt "r. option #18 ";
message "This is the longer message just for option #18. It should be long enough! "
* menu choice 19
@ 6,42 prompt "s. option #19 ";
message "This is the longer message just for option #19. It should be long enough! "
* menu choice 20
@ 7,42 prompt "t. option #20 ";
message "This is the longer message just for option #20. It should be long enough! "
* menu choice 21
@ 8,42 prompt "u. option #21 ";
message "This is the longer message just for option #21. It should be long enough! "
* menu choice 22
@ 9,42 prompt "v. option #22 ";
message "This is the longer message just for option #22. It should be long enough! "
* menu choice 23
@ 10,42 prompt "w. option #23 ";
message "This is the longer message just for option #23. It should be long enough! "
* menu choice 24
@ 11,42 prompt "x. option #24 ";
message "This is the longer message just for option #24. It should be long enough! "
* menu choice 25
@ 12,42 prompt "y. option #25 ";
message "This is the longer message just for option #25. It should be long enough! "
* menu choice 26
@ 13,42 prompt "z. option #26 ";
message "This is the longer message just for option #26. It should be long enough! "
* menu choice 27
@ 14,42 prompt "1. option #27 ";
message "This is the longer message just for option #27. It should be long enough! "
* menu choice 28
@ 15,42 prompt "2. option #28 ";
message "This is the longer message just for option #28. It should be long enough! "
* menu choice 29
@ 16,42 prompt "3. option #29 ";
message "This is the longer message just for option #29. It should be long enough! "
* menu choice 30
@ 17,42 prompt "4. option #30 ";
message "This is the longer message just for option #30. It should be long enough! "
* menu choice 31
@ 18,42 prompt "5. option #31 ";
message "This is the longer message just for option #31. It should be long enough! "
* menu choice 32
@ 19,42 prompt "9. option #32 The last one. exit !!";
message "The last record, or the 32nd one will be trigger a return to calling program. "
menu to mMENU1
do case
case mMENU1 = 1 && This is the longer message just for option # 1. It should be long enough!----
* THIS COMMAND IS ONLY A COMMENT
WAIT
case mMENU1 = 2 && This is the longer message just for option # 2. It should be long enough!
!DIR *.*
case mMENU1 = 3 && This is the longer message just for option # 3. It should be long enough!
!PAUSE THIS DOESN'T DO MUCH
case mMENU1 = 4 && This is the longer message just for option # 4. It should be long enough!
? [if you're using Clipper, you shouldn't need sample dbase code here.]
case mMENU1 = 5 && This is the longer message just for option # 5. It should be long enough!
do PREFIX5
* the rest of the options will be left blank.
case mMENU1 = 6 && This is the longer message just for option # 6. It should be long enough!
do PREFIX6
?
case mMENU1 = 7 && This is the longer message just for option # 7. It should be long enough!
do PREFIX7
case mMENU1 = 8 && This is the longer message just for option # 8. It should be long enough!
case mMENU1 = 9 && This is the longer message just for option # 9. It should be long enough!
case mMENU1 = 10 && This is the longer message just for option #10. It should be long enough!
case mMENU1 = 11 && This is the longer message just for option #11. It should be long enough!
case mMENU1 = 12 && This is the longer message just for option #12. It should be long enough!
case mMENU1 = 13 && This is the longer message just for option #13. It should be long enough!
case mMENU1 = 14 && This is the longer message just for option #14. It should be long enough!
case mMENU1 = 15 && This is the longer message just for option #15. It should be long enough!
case mMENU1 = 16 && This is the longer message just for option #16. It should be long enough!
case mMENU1 = 17 && This is the longer message just for option #17. It should be long enough!
case mMENU1 = 18 && This is the longer message just for option #18. It should be long enough!
case mMENU1 = 19 && This is the longer message just for option #19. It should be long enough!
case mMENU1 = 20 && This is the longer message just for option #20. It should be long enough!
case mMENU1 = 21 && This is the longer message just for option #21. It should be long enough!
case mMENU1 = 22 && This is the longer message just for option #22. It should be long enough!
case mMENU1 = 23 && This is the longer message just for option #23. It should be long enough!
case mMENU1 = 24 && This is the longer message just for option #24. It should be long enough!
case mMENU1 = 25 && This is the longer message just for option #25. It should be long enough!
case mMENU1 = 26 && This is the longer message just for option #26. It should be long enough!
case mMENU1 = 27 && This is the longer message just for option #27. It should be long enough!
case mMENU1 = 28 && This is the longer message just for option #28. It should be long enough!
case mMENU1 = 29 && This is the longer message just for option #29. It should be long enough!
case mMENU1 = 30 && This is the longer message just for option #30. It should be long enough!
case mMENU1 = 31 && This is the longer message just for option #31. It should be long enough!
case mMENU1 = 32 && The last record, or the 32nd one will be trigger a return to calling program.
endcase
enddo